home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / util / app / FileGizmo.lha / FileGizmo / Install_FileGizmo < prev    next >
Text File  |  1997-03-01  |  2KB  |  111 lines
  1.  
  2.  
  3. (set exe_dir
  4.     ( askdir (prompt "Select A Location For The FileGizmo Executable.")
  5.              (help @askdir-help)
  6.              (default "SYS:WBStartup/")
  7.              (newpath)
  8.     )
  9. )
  10.  
  11. (set doc_dir
  12.     ( askdir (prompt "Select A Location For The FileGizmo Documentation.")
  13.              (help @askdir-help)
  14.              (default "SYS:")
  15.              (newpath)
  16.     )
  17. )
  18.  
  19. (set icon_type
  20.     ( askchoice
  21.             ( prompt "Select Icons To Install" )
  22.             ( help @askchoice-help )
  23.             ( choices "Old Style Icons" "Newicons" )
  24.     )
  25. )
  26.  
  27. ( if exe_dir
  28.     (
  29.         (copyfiles
  30.             ( prompt "Copying FileGizmo")
  31.             ( files )
  32.             ( source "FileGizmo")
  33.             ( dest exe_dir)
  34.         )
  35.  
  36.         ( if (= (exists ( tackon exe_dir "FileGizmo.config" ) ( noreq ) ) 0 )
  37.             (copyfiles
  38.                 ( prompt "Copying Config File" )
  39.                 ( files )
  40.                 ( source "FileGizmo.config" )
  41.                 ( dest exe_dir )
  42.             )
  43.         )
  44.     )
  45. )
  46.  
  47. ( if doc_dir
  48.     (
  49.         (copyfiles
  50.             ( prompt "Copying Documentation" )
  51.             ( files )
  52.             ( source "FileGizmo.guide")
  53.             ( dest doc_dir )
  54.         )
  55.     )
  56. )
  57. ( if (= icon_type 0)
  58.     (
  59.         ( if exe_dir
  60.             (
  61.                 ( copyfiles
  62.                     ( prompt "Copying FileGizmo.info" )
  63.                     ( files )
  64.                     ( source "FileGizmo.info" )
  65.                     ( dest exe_dir )
  66.                 )
  67.             )
  68.         )
  69.         ( if doc_dir
  70.             (
  71.                 ( copyfiles
  72.                     ( prompt "Copying FileGizmo.guide.info" )
  73.                     ( files )
  74.                     ( source "FileGizmo.guide.info" )
  75.                     ( dest doc_dir )
  76.                 )
  77.             )
  78.         )
  79.     )
  80.     (
  81.         ( if exe_dir
  82.             (
  83.                 ( copyfiles
  84.                     ( prompt "Copying FileGizmo.info" )
  85.                     ( files )
  86.                     ( source "Icons/FileGizmo.info" )
  87.                     ( dest exe_dir )
  88.                 )
  89.             )
  90.         )
  91.         ( if doc_dir
  92.             (
  93.                 ( copyfiles
  94.                     ( prompt "Copying FileGizmo.guide.info" )
  95.                     ( files )
  96.                     ( source "Icons/FileGizmo.guide.info" )
  97.                     ( dest doc_dir )
  98.                 )
  99.             )
  100.         )
  101.     )
  102. )
  103.  
  104.  
  105. (set @default-dest exe_dir)
  106.  
  107. (exit "\nThankyou For Installing FileGizmo ;-]")
  108.  
  109.  
  110.  
  111.